Những câu hỏi liên quan
lamgi hoi
Xem chi tiết
Anh Phạm
25 tháng 7 2021 lúc 14:23

cau 1:

uses crt;

var a:array[1..100] of integer;

n,i,min: integer;

begin

readln(n);

for i:=1 to n do

readln(a[i]);

min:=a[1];

for i:=2 to n do

if min>a[i] then min=a[i];

writeln(a[i]);

readln;

end.

cau 2:

uses crt;

g:text;

s:string;

const fo='CHUSO.TXT'

begin

assign(g,fo);

rewrite(g);

readln(s);

for i:=1 to length(s) do

if not((s[i] in ['a'..'z'])and(s[i] in ['A'..'Z])) then delete(s,i,1);

writeln(g,s);

end.

Bình luận (0)
Ji Han
Xem chi tiết
Nguyễn Lê Phước Thịnh
18 tháng 5 2021 lúc 9:58

uses crt;

var a,b,c:string;

i,d1,d2:integer;

begin

clrscr;

write('Nhap xau a:'); readln(a);

write('Nhap xau b:'); readln(b);

d1:=length(a);

d2:=length(b);

writeln('Tong do dai hai xau la: ',d1+d2);

c:=#32;

for i:=1 to d1 do 

  if (a[i] in ['A'..'Z']) or (a[i] in ['a'..'z']) then c:=c+a[i];

for i:=1 to d2 do 

  if b[i] in ['0'..'9'] then c:=c+b[i];

writeln('Xau c la: ',c);

readln;

end.

Bình luận (0)
Khánh Mỹ
Xem chi tiết
SukhoiSu-35
3 tháng 3 2021 lúc 14:53

Chương trình:

program bai_10_chuong_4;

uses crt;

var

s: string[100];

i, dem: integer;

Begin

clrscr;

write('Nhap xau vao:'); readln(s); dem:= 0;

for i:= 1 to length(s) do

if ('0'<=s[i]) and(s[i]<=’9') then dem:=dem+l;

Writeln('Trong xau s co '»dem,' chu so thap phan');

readln;

End.

 

Bình luận (0)
Nguyễn Lê Phước Thịnh
3 tháng 3 2021 lúc 19:46

uses crt;

var st:string;

i,d,dem:integer;

begin

clrscr;

write('Nhap xau:'); readln(st);

d:=length(st);

writeln('Xau vua nhap la: ',st);

dem:=0;

for i:=1 to d do 

  if st[i] in ['0'..'9'] then inc(dem);

writeln(dem);

readln;

end.

Bình luận (0)
Hoàng Đào
Xem chi tiết
ttanjjiro kamado
13 tháng 2 2022 lúc 12:28

uses crt;

var a,b,c:string;

i,d1,d2:integer;

begin

clrscr;

write('Nhap xau a:'); readln(a);

write('Nhap xau b:'); readln(b);

d1:=length(a);

d2:=length(b);

writeln('Tong do dai hai xau la: ',d1+d2);

c:=#32;

for i:=1 to d1 do 

  if (a[i] in ['A'..'Z']) or (a[i] in ['a'..'z']) then c:=c+a[i];

for i:=1 to d2 do 

  if b[i] in ['0'..'9'] then c:=c+b[i];

writeln('Xau c la: ',c);

readln;

end.

Bình luận (2)
Nguyễn Taetruc
Xem chi tiết
Nguyễn Lê Phước Thịnh
3 tháng 4 2021 lúc 19:23

uses crt;

var s:string;

i,d:integer;

begin

clrscr;

write('Nhap xau S:'); readln(s);

d:=length(s);

for i:=1 to d do 

  s[i]:=upcase(s[i]);

writeln(s);

readln;

end.

Bình luận (0)
Đinh Đức Quảng
Xem chi tiết
Nguyễn Lê Phước Thịnh
7 tháng 5 2021 lúc 22:32

uses crt;

var st:string;

begin

clrscr;

write('Nhap xau:'); readln(st);

writeln(length(st));

readln;

end.

Bình luận (0)
Nguyễn anh quân
Xem chi tiết
Phía sau một cô gái
9 tháng 3 2023 lúc 14:17

# Nhập chuỗi từ bàn phím

s = input("Nhập chuỗi: ")

# Tính số chữ số xuất hiện trong chuỗi

count = 0

for char in s:

     if char.isdigit():

          count += 1

# In số chữ số xuất hiện trong chuỗi

print("Số chữ số xuất hiện trong chuỗi là:", count)

Bình luận (0)
NGUYỄN CHÍ tiến
9 tháng 3 2023 lúc 21:07

# Nhập chuỗi từ bàn phím

s = input("Nhập chuỗi: ")

# Tính số chữ số xuất hiện trong chuỗi

count = 0

for char in s:

     if char.isdigit():

          count += 1

# In số chữ số xuất hiện trong chuỗi

print("Số chữ số xuất hiện trong chuỗi là:", count)

# Nhập chuỗi từ bàn phím

s = input("Nhập chuỗi: ")

# Tính số chữ số xuất hiện trong chuỗi

count = 0

for char in s:

     if char.isdigit():

          count += 1

# In số chữ số xuất hiện trong chuỗi

print("Số chữ số xuất hiện trong chuỗi là:", count)

# Nhập chuỗi từ bàn phím

s = input("Nhập chuỗi: ")

# Tính số chữ số xuất hiện trong chuỗi

count = 0

for char in s:

     if char.isdigit():

          count += 1

# In số chữ số xuất hiện trong chuỗi

print("Số chữ số xuất hiện trong chuỗi là:", count)

# Nhập chuỗi từ bàn phím

s = input("Nhập chuỗi: ")

# Tính số chữ số xuất hiện trong chuỗi

count = 0

for char in s:

     if char.isdigit():

          count += 1

# In số chữ số xuất hiện trong chuỗi

print("Số chữ số xuất hiện trong chuỗi là:", count)

# Nhập chuỗi từ bàn phím

s = input("Nhập chuỗi: ")

# Tính số chữ số xuất hiện trong chuỗi

count = 0

for char in s:

     if char.isdigit():

          count += 1

# In số chữ số xuất hiện trong chuỗi

print("Số chữ số xuất hiện trong chuỗi là:", count)

# Nhập chuỗi từ bàn phím

s = input("Nhập chuỗi: ")

# Tính số chữ số xuất hiện trong chuỗi

count = 0

for char in s:

     if char.isdigit():

          count += 1

# In số chữ số xuất hiện trong chuỗi

print("Số chữ số xuất hiện trong chuỗi là:", count)

Bình luận (0)
Phạm Hào
Xem chi tiết
Nguyễn Lê Phước Thịnh
10 tháng 12 2021 lúc 23:06

#include <bits/stdc++.h>

using namespace std;

string st;

int d,i,dem;

int main()

{

getline(cin,st);

d=st.length();

dem=0;

for (i=0; i<=d-1; i++)

if ((97<=st[i] && st[i]<=122) and (st[i]!=".")) dem++;

cout<<dem;

return 0;

}

Bình luận (0)
trần thu lan
Xem chi tiết